﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%
Response.Buffer = true
Response.Expires = -1

Call Head()
%>
<card title="主机测试"><p align="left">
服务器性能测试<br/><br/>
<%
Response.Flush
Response.Write "整数运算测试，50万次加法运算"
dim t1,t2,lsabc,thetime,thetime2,fsosus,httpsus,adosus,jpegsus
t1=timer
for i=1 to 500000
	lsabc= 1 + 1
next
t2=timer
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime & "毫秒</font>(145以下正常)<br/>"


Response.Write "浮点运算测试，20万次开方运算"
t1=timer
for i=1 to 200000
	lsabc= 2^0.5
next
t2=timer
thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime2 & "毫秒</font>(130以下正常)<br/>"


If Not ifObjInstalled("Scripting.FileSystemObject") Then fsosus="不"
If Not ifObjInstalled("Microsoft.XMLHTTP") Then httpsus="不"
If Not ifObjInstalled("Adodb.Stream") Then adosus="不"
If Not ifObjInstalled("Persits.Jpeg") Then jpegsus="不"

Response.Write "<br/>服务器信息：<br/>"&_
	"主机IP："&Request.ServerVariables("LOCAL_ADDR")&"<br/>"&_
	"端口号："&Request.ServerVariables("SERVER_PORT")&"<br/>"&_
	"IIS版本："&Request.ServerVariables("SERVER_SOFTWARE")&"<br/>"&_
	"超时时间："&Server.ScriptTimeout&"秒<br/>"&_
	"Fso组件："&fsosus&"支持<br/>"&_
	"XmlHttp组件："&httpsus&"支持<br/>"&_
	"Stream组件："&adosus&"支持<br/>"&_
	"ASPJpeg组件："&jpegsus&"支持<br/>"&_
	""

%><br/>温馨提示：<br/>
Fso组件：文件系统管理中用到<br/>
XmlHttp组件：采集系统中用到<br/>
Stream组件：文件上传中用到<br/>
ASPJpeg组件：图像处理中用到<br/>
<br/>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%call CloseConn%>